home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / mod / AddOn / arteffect.mod next >
Encoding:
Text File  |  2000-03-14  |  763 b   |  34 lines
  1. /* $ver: htmlext modul: arteffect.mod Rev.013 by Juan manuel wehrli 1999 */
  2.  
  3. aeprg = "arteffect:arteffect"
  4.  
  5. if ~show("l",rexxreqtools.library) then do
  6.     call addlib("rexxreqtools.library",0,-30,0)
  7. end
  8. if ~show("l",rexxtricks.library) then do
  9.     call addlib("rexxtricks.library",0,-30,0)
  10. end
  11. nl = '0a'x
  12. PARSE ARG befehl file
  13. OPTIONS RESULTS
  14. ADDRESS COMMAND
  15. if befehl = opennew then do
  16.     if ~show("p","ArtEffect") then do
  17.         'wbrun <>nil: ' || aeprg
  18.         "sys:rexxc/waitforport ArtEffect"
  19.     end
  20.     ADDRESS "ArtEffect"
  21.     file = strip(file)
  22.     loadpic '"' || file || '"'
  23. end
  24. if befehl = opennews then do
  25.     if ~show("p","ArtEffect") then do
  26.         'wbrun <>nil: ' || aeprg
  27.         "sys:rexxc/waitforport ArtEffect"
  28.     end
  29.     ADDRESS "ArtEffect"
  30.     file = strip(file)
  31.     loadpic '"' || file || '"'
  32. end
  33.  
  34.